home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1996 September / inter@ivo 1996-09.iso / cybint8 / bin / curios.dxr / 00024.ls < prev    next >
Encoding:
Text File  |  1996-08-02  |  791 b   |  49 lines
  1. on exitFrame
  2.   global act
  3.   if act = 0 then
  4.     if rollOver(22) or rollOver(23) then
  5.       cursor([901, 902])
  6.     else
  7.       somBlinks(2, 13, "..\som\hotcu8.wav")
  8.     end if
  9.     if rollOver(8) then
  10.       onVis(14)
  11.     else
  12.       InVis(14)
  13.     end if
  14.     if rollOver(9) then
  15.       onVis(15)
  16.     else
  17.       InVis(15)
  18.     end if
  19.     if rollOver(10) then
  20.       onVis(16)
  21.     else
  22.       InVis(16)
  23.     end if
  24.     if rollOver(11) then
  25.       onVis(17)
  26.     else
  27.       InVis(17)
  28.     end if
  29.     if rollOver(12) then
  30.       onVis(18)
  31.     else
  32.       InVis(18)
  33.     end if
  34.     if rollOver(13) then
  35.       onVis(19)
  36.     else
  37.       InVis(19)
  38.     end if
  39.   end if
  40.   if act = 1 then
  41.     if rollOver(25) or rollOver(26) then
  42.       cursor([901, 902])
  43.     else
  44.       cursor(-1)
  45.     end if
  46.   end if
  47.   Loopframe()
  48. end
  49.